home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 March / CHIP Mart 1997.iso / SurfCam / SURFCAM.Z / UNCX01.F06 < prev    next >
Encoding:
Text File  |  1996-04-01  |  731 b   |  12 lines
  1. CIMFIL/ON,LOADTL                      $$ TRAP LOADTL(TOOLCHANGE)
  2.  REDEF/ON                             $$ ALLOW VARIABLES TO BE OVERWRITTEN
  3.  RSLT=POSTF(20)                       $$ SAVE RECORD ASIDE
  4.  PREFUN/80,NEXT                       $$ ADD G80 NEXT TO...
  5.  PREFUN/40,NEXT                       $$ G40 NEXT TO...
  6.  PREFUN/17,NEXT                       $$ G17 NEXT TO... 
  7.  PREFUN/0,                            $$ G0  
  8.  RSLT=POSTF(21)                       $$ RELOAD RECORD
  9.  RSLT=POSTF(9,7,159)                  $$ CHANGE LENGTH TO ADJUST(159)
  10.  RSLT=POSTF(10,6,0)                   $$ CHANGE THE LENGTH TO 0
  11.  RSLT=POSTF(13)                       $$ SEND RECORD TO POST
  12. CIMFIL/OFF                            $$ END ROUTINE